home *** CD-ROM | disk | FTP | other *** search
- Path: abcfd20.larc.nasa.gov!amiga-request
- From: amiga-request@abcfd20.larc.nasa.gov (Amiga Sources/Binaries Moderator)
- Subject: v90i265: stickmouse 1.0 - change port and device of internal input.device , Part01/01
- Reply-To: hgschmie@faui41.informatik.uni-erlangen.de (Henning Schmiedehausen)
- Newsgroups: comp.sources.amiga
- Message-ID: <comp.sources.amiga:v90i265@abcfd20.larc.nasa.gov>
- Date: 08 Oct 90 21:22:53 GMT
- Approved: tadguy@uunet.UU.NET (Tad Guy)
- X-Mail-Submissions-To: amiga@uunet.uu.net
- X-Post-Discussions-To: comp.sys.amiga
-
- Submitted-by: hgschmie@faui41.informatik.uni-erlangen.de (Henning Schmiedehausen)
- Posting-number: Volume 90, Issue 265
- Archive-name: util/stickmouse-1.0/part01
-
- [ uuencoded executable enclosed ...tad ]
-
- This program changes the port and the device used by the
- internal input.device to control the Mouse-Pointer.
-
- #!/bin/sh
- # This is a shell archive. Remove anything before this line, then unpack
- # it by saving it into a file and typing "sh file". To overwrite existing
- # files, type "sh file -c". You can also feed this as standard input via
- # unshar, or by typing "sh <file", e.g.. If this archive is complete, you
- # will see the following message at the end:
- # "End of archive 1 (of 1)."
- # Contents: MakeFile StickMouse.doc StickMouse.uu Stickmouse.c
- # Wrapped by tadguy@abcfd20 on Mon Oct 8 17:22:52 1990
- PATH=/bin:/usr/bin:/usr/ucb ; export PATH
- if test -f 'MakeFile' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'MakeFile'\"
- else
- echo shar: Extracting \"'MakeFile'\" \(268 characters\)
- sed "s/^X//" >'MakeFile' <<'END_OF_FILE'
- X# Makefile for
- X# Stickmouse
- X# will work with Manx C V 3.6
- X#
- X
- XCFLAGS = +l -n -s
- X# remove -n after your finished Debugging
- X
- XStickmouse: Stickmouse.o
- X ln -t -g -o StickMouse Stickmouse.o -lc32
- X# remove -t and -g after you finished Debugging
- X
- XStickmouse.o: Stickmouse.c
- X
- END_OF_FILE
- if test 268 -ne `wc -c <'MakeFile'`; then
- echo shar: \"'MakeFile'\" unpacked with wrong size!
- fi
- # end of 'MakeFile'
- fi
- if test -f 'StickMouse.doc' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'StickMouse.doc'\"
- else
- echo shar: Extracting \"'StickMouse.doc'\" \(2168 characters\)
- sed "s/^X//" >'StickMouse.doc' <<'END_OF_FILE'
- X/***************************************************\
- X * *
- X * S T I C K M O U S E *
- X * *
- X * 901002 V 1.0 written and released by Dr. Music *
- X * *
- X * Dr. Music is: *
- X * Henning Schmiedehausen *
- X * Glueckstrasse 3 *
- X * D-8520 Erlangen *
- X * GERMANY *
- X * hgschmie@faui41.informatik.uni-erlangen.de *
- X * *
- X * This program is placed in the public domain *
- X * It may be distributed freely as long as this *
- X * message is left unchanged. *
- X * You may add it to any PD-Disk you want, as long *
- X * as you don't charge more money than necessary *
- X * to distribute the Disk. *
- X * *
- X\***************************************************/
- X
- X
- XThis program changes the port and the device used by the
- Xinternal input.device to control the Mouse-Pointer.
- X
- XThe useage of this little program is
- X
- XSTICKMOUSE <port> <device>, where
- X
- X<port> is either 0 or 1 for the Gameports.
- X<device> is either JOY or MOUSE for the device.
- X
- XJust STICKMOUSE and Return will reset to Mouse and Port 0.
- X
- XThe C-Code is included in this package, it should contain:
- X
- XMakefile: 268 Bytes
- XStickmouse.c: 3949 Bytes
- XStickmouse: 6708 Bytes
- XStickmouse.doc: 2168 Bytes
- X
- XThis is PD. Use it or discard it.
- X
- X
- X Henning
- X
- X ___ _________________________________________________________________
- X ONLY //// |Henning Schmiedehausen | You can call me | Opinions are
- X___ //// |Glueckstr. 3 8520 Erlangen| Dr. Music, 'cause | mine, Typos
- X\\\\ //// |Germany | Music is my name - BOC| and Grammars
- X \\\X/// +--------------------------+---------------+-------+------+ are
- X \XXX/AMIGA|hgschmie@faui41.informatik.uni-erlangen.de| HACK IS BACK!| yours
- END_OF_FILE
- if test 2168 -ne `wc -c <'StickMouse.doc'`; then
- echo shar: \"'StickMouse.doc'\" unpacked with wrong size!
- fi
- # end of 'StickMouse.doc'
- fi
- if test -f 'StickMouse.uu' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'StickMouse.uu'\"
- else
- echo shar: Extracting \"'StickMouse.uu'\" \(9432 characters\)
- sed "s/^X//" >'StickMouse.uu' <<'END_OF_FILE'
- Xbegin 644 StickMouse
- XM```#\P`````````#``````````(```7A````K@````$```/I```%X4[Z!%Q.8
- XM5?_^&VT`#___(&T`"#%\``X`'$'M__\B;0`((T@`*"!M``@A?`````$`)"\M<
- XM``A.NA9D6$].74YU3E7__AMM``___R!M``@Q?``/`!Q&3KH'Y%A/2'@`"DZZ$9!8Z
- XM3V```-`@;0`,(F@`!!`12(!(P)"\````,!M`__]*+?__90@,+0`!__]C%$AZ_
- XM`D).N@>F6$](>``*3KH14EA/>`!@)B!M``PB:``($#%``$B`2,`O`$ZZ`I18;
- XM3R!M``PB:``($X!``%)$,`1(P"\`(&T`#"\H``A.N@)@6$\B'[*`;<!(>@(&!
- XM(&T`#"\H``A.N@**4$]*@&8(&WP``O_^8#)(>@'L(&T`#"\H``A.N@)L4$]*1
- XM@&8(&WP``?_^8!1(>@'43KH'$EA/2'@`"DZZ$+Y83T*G2'H!XDZZ$PA03RE`6
- XM@EXO+()>3KH3Y%A/*4""6D*G+RR"6D*G2'H!T4ZZ%/1/[P`0<``0+?__+P`O*
- XM+():3KK]WE!/<``0+?_^+P`O+():3KK^!E!/+RR"6DZZ$IA83R\L@EI.NA.J1
- XM6$\O+()>3KH3+%A/*!].74YU"@H@4U1)0TM-3U5313H@<W=I=&-H97,@=&AEE
- XM($UO=7-E+5!O:6YT97(M1&5V:6-E"@`@55-!1T4Z(%-424-+34]54T4@/'!OO
- XM<G0^(#QD979I8V4^"@`@/'!O<G0^(#T@,"\Q(&9O<B!T:&4@2F]Y<&]R=',*`
- XM`"`\9&5V:6-E/B`]($U/55-%+TI/62!F;W(@=&AE($1E=FEC90H`(%-424-+1
- XM34]54T4@=VET:&]U="!P87)A;7,@=VEL;"!S970@=&\@9&5F875L=`H`('=R`
- XM:71T96X@8GD@1'(N($UU<VEC(#$Y.3`*`%5S96%G93H@4W1I8VM-;W5S92`\8
- XM<&]R=#X@/&1E=CX@;W(@4W1I8VM-;W5S92`_(&9O<B!H96QP"@!0;W)T+4YUR
- XM;6)E<B!M=7-T(&)E(#`@;W(@,0H`2D]9`$U/55-%`$1E=FEC92!M=7-T(&)E]
- XM(&5I=&AE<B!-3U5312!O<B!*3UD*`%-T:6-K36]U<V5?:7-?:&5R90!I;G!UH
- XM="YD979I8V4`(&\`!"`(2AAF_)'`(`A3@$YU<``0+P`'L#P`8&,*L#P`>F($;
- XMD#P`($YU<``0+P`'L#P`0&,*L#P`6F($T#P`($YU,#Q__V`$,"\`#E-`:Q0@&
- XM;P`$(F\`"+$)9@Q32$H85\C_]G``3G5C!'`!3G5P_TYU87!#[():1>R"6K7)P
- XM9@XR/``7:PAT`"+"4<G__"E/@F8L>``$*4Z":DCG@(`(+@`$`2EG$$OZ``A.I
- XMKO_B8`9"I_-?3G-#^@`@3J[^:"E`@FYF#"X\``.`!TZN_Y1@!$ZZ`!I03TYUF
- XM9&]S+FQI8G)A<GD`2?D``'_^3G5.50``+PI(>0`!```P+().P?P`!B\`3KH1`
- XMG"E`@G)03V840J=(>0`!``!.N@^^4$\N;()F3G4@;()R0F@`!"!L@G(Q?``!2
- XM`!`@;()R,7P``0`*(&R"9B`L@F:0J``$4(`I0()V(&R"=B"\34%.6$*G3KH1S
- XM:B1`2JH`K%A/9S`O+0`,+RT`""\*3KH`LBE\`````8)Z(&R"<@!H@```!"!L%
- XM@G(`:(````I/[P`,8$)(:@!<3KH1QDAJ`%Q.NA%4*4""?B!L@GY*J``D4$]G+
- XM$"!L@GXB:``D+Q%.N@ZH6$\O+()^+PI.N@)X*6R"?H*"4$].N@ZH(&R"<B"`;
- XM3KH.R"!L@G(A0``&9Q9(>`/M2'H`+$ZZ#J0@;()R(4``#%!/+RR"@B\L@H9.V
- XMNOIX0J=.N@R:3^\`#"1?3EU.=2H`3E4``$CG##`D;0`0(&T`"$JH`*QG&"!M6
- XM``@@*`"LY8`H`"!$("@`$.6`)D!@!"9L@E`0$TB`2,#0K0`,5(`I0(**0J<OU
- XM+(**3KH0+BE`@HY03V8(3-\,,$Y=3G40$TB`2,`J`"\%($M2B"\(+RR"CDZZ9
- XM`8X@;(*.T<5#^@%8$-EF_"\M``PO"B\L@HY.N@%.(&R"CD(P6``I?`````&"3
- XMAB!L@H[1Q29(4HLD2T_O`!@0$TB`2,`J`+"\````(&<@NKP````)9QBZO```L
- XM``QG$+J\````#6<(NKP````*9@12BV#,#!,`(&T``(P,$P`B9C)2BR!+4HL0N
- XM$$B`2,`J`&<@($I2BA"%NKP````B9A`,$P`B9@12BV`&0BK__V`"8-)@1"!+U
- XM4HL0$$B`2,`J`&<PNKP````@9RBZO`````EG(+J\````#&<8NKP````-9Q"ZN
- XMO`````IG""!*4HH0A6#"($I2BD(02H5F`E.+4JR"AF``_SQ"$D*G("R"AE*`C
- XMY8`O`$ZZ#O(I0(*"4$]F"$*L@H9@`/Z^>@`F;(*.8!X@!>6`(&R"@B&+"``@P
- XM2R`(2AAF_)'`4XA2B-?(4H6ZK(*&;=P@!>6`(&R"@D*P"`!@`/Z"(``P/'__H
- XM8`0P+P`.(&\`!$H89OQ32")O``A30!#95\C__&<"0A`@+P`$3G5,[P,```0@E
- XM""(O``Q@`A#95\G__&<&4D%@`D(84<G__$YU3E4``$CG#C`D;0`(0J=(>@".!
- XM3KH.TBE`@I)03V8(3-\,<$Y=3G4@;0`,(F@`)"\I``1.N@\.*`!83V=22'H`9
- XM;2!$+R@`-DZZ#N`F0$J`4$]G-$AX`^TO"TZZ"_XL`%!/9R0@!N6`*@`@125HV
- XM``@`I"5&`)Q(>`/M2'H`.$ZZ"]HE0`"@4$\O!$ZZ#JQ83R\L@I).N@P<0JR"9
- XMDEA/8(!I8V]N+FQI8G)A<GD`5TE.1$]7`"H`3E4``$AM``PO+0`(2'H$H$ZZ=
- XM`)!/[P`,3EU.=4Y5``!(YP@@)&T`$`RM````!``49@@@;0`(*!!@%$JM``QO5
- XM""!M``@H$&`&(&T`""@00JT`%$JM``QL$D2M``Q*A&P*1(0K?`````$`%"(M@
- XM``P@!$ZZ`]9![(`"4XH4L`@`(BT`#"`$3KH#SB@`9MY*K0`49P93BA2\`"T@?
- XM"DS?!!!.74YU3E7_%$CG"#`D;0`()FT`#$*M__@K;0`0__P@2U*+$!!(@$C`-
- XM*`!G``,TN+P````E9@`##D(M_R(K?`````'_]"M\````(/_P*WP``"<0_^P@@
- XM2U*+$!!(@$C`*`"PO````"UF$$*M__0@2U*+$!!(@$C`*`"XO````#!F%"M\6
- XM````,/_P($M2BQ`02(!(P"@`N+P````J9AH@;?_\6*W__"M0_^@@2U*+$!!(W
- XM@$C`*`!@-$*M_^A@(G(*("W_Z$ZZ"=[0A)"\````,"M`_^@@2U*+$!!(@$C`5
- XM*`!![(`5"#```D@`9M*XO````"YF8B!+4HL0$$B`2,`H`+"\````*F8:(&W_0
- XM_%BM__PK4/_L($M2BQ`02(!(P"@`8#1"K?_L8")R"B`M_^Q.N@ETT(20O```+
- XM`#`K0/_L($M2BQ`02(!(P"@`0>R`%0@P``)(`&;2*WP````$_^2XO````&QFV
- XM%B!+4HL0$$B`2,`H`"M\````!/_D8!2XO````&AF#"!+4HL0$$B`2,`H`"`$*
- XM8```@BM\````"/_@8!PK?`````K_X&`2*WP````0_^!@""M\____]O_@+RW_`
- XMY$AM_R(O+?_@+RW__$ZZ_;(K0/_<("W_Y-&M__Q/[P`08%P@;?_\6*W__")0V
- XM*TG_W"`)2AEF_)/`4XDK2?_D8$H@;?_\6*W__"@00>W_(2M(_]P0A&`HD+P`Q
- XM``!C9^)3@&>2D+P````+9P#_;%F`9[)5@&<`_VQ7@&<`_W!@S$'M_R*1[?_<[
- XM*TC_Y"`M_^2PK?_L;P8K;?_L_^1*K?_T9W`@;?_<#!``+6<*(&W_W`P0`"MFA
- XM-`RM````,/_P9BI3K?_H(&W_W%*M_]P0$$B`2,`O`$Z2L+S_____6$]F"G#_R
- XM3-\,$$Y=3G5@&"\M__!.DK"\_____UA/9@1P_V#B4JW_^"`M_^A3K?_HL*W_O
- XMY&[:0JW_X&`D(&W_W%*M_]P0$$B`2,`O`$Z2L+S_____6$]F!'#_8*I2K?_@/
- XM(&W_W$H09PH@+?_@L*W_[&W*("W_X-&M__A*K?_T9BI@&DAX`"!.DK"\____<
- XM_UA/9@9P_V``_W!2K?_X("W_Z%.M_^BPK?_D;MA@&"\$3I*PO/____]83V8&M
- XM</]@`/](4JW_^&``_,`@+?_X8`#_.$CG2`!"A$J`:@1$@%)$2H%J!D2!"D0`@
- XM`6$^2D1G`D2`3-\`$DJ`3G5(YT@`0H1*@&H$1(!21$J!:@)$@6$:(`%@V"\!T
- XM81(@`2(?2H!.=2\!808B'TJ`3G5(YS``2$%*068@2$$V`30`0D!(0(##(@!(K
- XM0#("@L,P`4)!2$%,WP`,3G5(028!(@!"04A!2$!"0'0/T(#3@;:!8@22@U)`#
- XM4<K_\DS?``Q.=4Y5``!(;("L+RT`"$ZZ``A03TY=3G5.50``+P0H+0`(+RT`9
- XM#"\$3KH`-+B\````"E!/9B8@;0`,$"@`#$B`2,`(```'9Q1(>/__+RT`#$ZZ)
- XM`/Q03R@?3EU.=6#X3E4``"\*)&T`#"!2L>H`!&4:("T`","\````_R\`+PI.W
- XMN@#.4$\D7TY=3G4@4E*2$"T`"Q"`2(!(P,"\````_V#D3E4``"\*0>R`EB1(@
- XM($K5_````!8O"&$06$]$A**@`,9QC5_````!9![().M<AE"'``)%].74YU8.)"DD*JM
- XM``1"J@`((`I@ZDY5__PO"B1M``A(>`0`3KH`PBM`__Q83V88-7P``0`0($K1R
- XM_`````XE2``()%].74YU-7P$```0".H``0`,)6W__``($"H`#4B`2,`O`$ZZ7
- XM`-Y*@%A/9P8`*@"```Q@S$Y5``!(YP`P)&R"8F`4)E(@*@`$4(`O`"\*3KH&4
- XM0E!/)$L@"F;H0JR"8DS?#`!.74YU3E4``"\*0?K_QBE(@II"IR`M``A0@"\`E
- XM3KH%TB1`2H!03V8(<``D7TY=3G4DK()B)6T`"``$*4J"8B`*4(!@YDY5```OV
- XM+0`(8;983TY=3G5.50``2.<`,)?+)&R"8F`.(&T`"%&(L<IG$B9*)%(@"F;NM
- XM</],WPP`3EU.=2`+9P0FDF`$*5*"8B`J``10@"\`+PI.N@68<`!03V#83E4`Z
- XM`"\*<@8@+0`(3KH"X"1`U>R"<DJM``AM$C`L@DY(P"(M``BR@&P$2I)F$"E\K
- XM`````H*></\D7TY=3G5R!B`M``A.N@*H(&R"<B\P"`!.N@+T2H!83V<$<`%@3
- XM`G``8-9.50``+RT`"$ZZ`KY*@%A/9@Y.N@+(*4""GG#_3EU.=7``8/A.50``_
- XM2.<,("@M``A.N@!V<@8@!$ZZ`E(D0-7L@G)*A&T.,"R"3DC`N(!L!$J29A(II
- XM?`````*"GG#_3-\$,$Y=3G4P*@`$P'P``V8,*7P````%@IYP_V#B+RT`$"\ML
- XM``PO$DZZ`HXJ`+"\_____T_O``QF#$ZZ`D(I0(*></]@NB`%8+9.5?_\2'@0Z
- XM`$*G3KH$\BM`__P(```,4$]G$DJL@GIF""`M__Q.74YU3KH`!G``8/1.50``$
- XM2'@`!$AZ`!Q.N@(8+P!.N@(J2'@``4ZZ``Y/[P`03EU.=5Y#"@!.50``2JR"`
- XMEF<&(&R"EDZ0+RT`"$ZZ``A83TY=3G5.5?_\+P0K;0`(__Q*K()R9RQX`&`*9
- XM+P1.N@#\6$]2A#`L@DY(P+B`;>PP+().P?P`!B\`+RR"<DZZ`]103TJL@IIG=
- XM!B!L@II.D$JL@E1G"B\L@E1.N@&06$]*K(*B9P@@;(*B(*R"IDJL@JIG"B\L5
- XM@JI.N@&X6$]*K(*N9PHO+(*N3KH!J%A/2JR"LF<*+RR"LDZZ`9A83TJL@K9G5
- XM"B\L@K9.N@&(6$\L>``$""X`!`$I9Q0O#4OZ``I.KO_B*E]@!D*G\U].<TJLE
- XM@GYF*DJL@HYG(B\L@HHO+(*.3KH#,"`L@H92@.6`+P`O+(*"3KH#'D_O`!!@<
- XM#DZZ`P@O+()^3KH#>%A/("W__"YL@F9.=2@?3EU.=4Y5``!(YPX@*"T`"'(&]
- XM(`1.N@!$)$#5[()R2H1M#C`L@DY(P+B`;`1*DF82*7P````"@IYP_TS?!'!.E
- XM74YU,"H`!,!\@`!F""\23KH`+EA/0I)P`@2.=P`#0!Q,`F`4A#QL!(0T)#J
- XMU(-(0,#!2$!"0-""3-\`#DYU(B\`!"QL@FY.[O_<(B\`!"QL@FY.[O^"(B\`7
- XM!"QL@FY.[O^X+&R";D[N_\HL;()N3N[_?"(O``0L;()N3N[_*$SO``8`!"QLH
- XM@FY.[O_B+&R";D[N_\1.^@`"(B\`!"QL@FY.[O^F3.\`#@`$+&R";D[N_]!($
- XMYP$$3.\@@``,+&R":DZN_Y1,WR"`3G4B;P`$+&R":D[N_CY.^@`"(F\`!"QL\
- XM@FI.[OYB3E4``$CG""!(>/__3KH`T"@`L+S_____6$]F"G``3-\$$$Y=3G5(D
- XM>0`!``%(>``B3KH!8"1`2H!03V8,+P1.N@&F<`!83V#6)6T`"``*%6T`#P`)R
- XM%7P`!``(0BH`#A5$``]"ITZZ`50E0``02JT`"%A/9PHO"DZZ`%I83V`*2&H`O
- XM%$ZZ`7I83R`*8)).50``+PHD;0`(2JH`"F<(+PI.N@&66$\5?`#_``@E?/__R
- XM__\`%'``$"H`#R\`3KH!*DAX`"(O"DZZ`0Q/[P`,)%].74YU(F\`!"QL@FI._
- XM[OZ>("\`!"QL@FI.[OZV3E4``$AX`#`O+0`(3KH`&E!/3EU.=4Y5```O+0`(^
- XM3KH`3%A/3EU.=4Y5```O"DJM``AF"'``)%].74YU2'D``0`!+RT`#$ZZ`&`D*
- XM0$J`4$]F!'``8.`5?``%``@U;0`.`!(E;0`(``X@"F#*3E4``"\*)&T`""`*^
- XM9@8D7TY=3G45?`#_``@E?/____\`%"5\_____P`8<``P*@`2+P`O"DZZ`$90]
- XM3V#23OH``DSO``,`!"QL@FI.[O\Z2.<#`")O``PL;()J3J[^.$S?`,!.=4[Z!
- XM``(B;P`$+&R":D[N_MHL;()J3N[_?$[Z``(B;P`$("\`""QL@FI.[O\N("\`<
- XM!"QL@FI.[OZP(&\`!"QL@FI.[OZ,(&\`!""(6)!"J``$(4@`"$YU(&\`!$SOB
- XM`@$`""(O`!`L;()J3N[^1"QL@FHB;P`$("\`"$[N_=@B;P`$+&R":D[N_I@B\
- XM;P`$+&R":D[N_H9,[P`#``0L;()J3N[^SB!O``0L;()J3N[^@$SO`P``!"QLP
- XM@I).[O^@(&\`!"QL@I).[O^F(&\`!"QL@I).[O^R```#[`````$````!```$P
- XMT@````````/R```#Z@```)8P,3(S-#4V-S@Y86)C9&5F````("`@("`@("`@,
- XM,#`P,#`@("`@("`@("`@("`@("`@(""00$!`0$!`0$!`0$!`0$!`#`P,#`P,(
- XM#`P,#$!`0$!`0$`)"0D)"0D!`0$!`0$!`0$!`0$!`0$!`0$!`4!`0$!`0`H*.
- XM"@H*"@("`@("`@("`@("`@("`@("`@("0$!`0"```````````````````0``Q
- XM```!``````````````````````$!`````0`````````````````````!`@``'
- XM``$`````````````````````````````````````````````````````````!
- XM`````````````````````````````````````````````````````````````
- XM`````````````````````````````````````````````````````````````
- XM`````````````````````````````````````````````````````````````
- XM`````````````````````````````````````````````````````````````
- XM`````````````````````````````````````````````````````````````
- XM`````````````````````````````````````````````````````````````
- XM`````````````````````````````````````````````````````````````
- XM````````````````````````````%`````````````````/R```#ZP````$`X
- X#``/RU
- X``
- Xend
- Xsize 6708
- END_OF_FILE
- if test 9432 -ne `wc -c <'StickMouse.uu'`; then
- echo shar: \"'StickMouse.uu'\" unpacked with wrong size!
- fi
- # end of 'StickMouse.uu'
- fi
- if test -f 'Stickmouse.c' -a "${1}" != "-c" ; then
- echo shar: Will not clobber existing file \"'Stickmouse.c'\"
- else
- echo shar: Extracting \"'Stickmouse.c'\" \(3949 characters\)
- sed "s/^X//" >'Stickmouse.c' <<'END_OF_FILE'
- X/***************************************************\
- X * *
- X * S T I C K M O U S E *
- X * *
- X * 901002 V 1.0 written and released by Dr. Music *
- X * *
- X * Dr. Music is: *
- X * Henning Schmiedehausen *
- X * Glueckstrasse 3 *
- X * D-8520 Erlangen *
- X * GERMANY *
- X * hgschmie@faui41.informatik.uni-erlangen.de *
- X * *
- X * This program is placed in the public domain *
- X * It may be distributed freely as long as this *
- X * message is left unchanged. *
- X * You may add it to any PD-Disk you want, as long *
- X * as you don't charge more money than necessary *
- X * to distribute the Disk. *
- X * *
- X\***************************************************/
- X
- X/* This program will switch the intuition-input.device
- X to use different ports and Devices at the external ports to
- X control the mouse-pointer. The trigger button will simulate
- X the left mouse button, the right button must be simulated via
- X Right-Amiga and ALT
- X*/
- X
- X/* Usage of this program: STICKMOUSE <port> <device> */
- X/* just STICKMOUSE
- X will set the port to 0 and the device to MOUSE (default) */
- X
- X#include <ctype.h>
- X#include <exec/types.h>
- X#include <devices/input.h>
- X#include <devices/gameport.h>
- X
- Xvoid SetMousePort(request,port)
- Xstruct IOStdReq *request;
- XUBYTE port;
- X {
- XUBYTE MyPort;
- X MyPort = port;
- X request->io_Command = (UWORD)IND_SETMPORT;
- X request->io_Data = (APTR)&MyPort;
- X request->io_Length = 1L;
- X DoIO(request);
- X }
- X
- Xvoid SetMouseDev(request,dev)
- Xstruct IOStdReq *request;
- XUBYTE dev;
- X {
- XUBYTE MyDev;
- X MyDev = dev;
- X request->io_Command = (UWORD)IND_SETMTYPE;
- X request->io_Data = (APTR)&MyDev;
- X request->io_Length = 1L;
- X DoIO(request);
- X }
- X
- Xstatic struct IOStdReq *StickMouseReq;
- Xstatic struct MsgPort *StickMousePort;
- X
- Xmain(argc,argv)
- Xint argc;
- XSTRPTR argv[];
- X {
- X
- Xregister COUNT i; /* for our loops */
- X
- XUBYTE Stick_Port, /* This will keep the Port-Number */
- X Stick_Dev; /* and this one the Device-Type */
- X
- X if((argc<3))
- X {
- X if(argc==1)
- X {
- X Stick_Port = 0;
- X Stick_Dev = GPCT_MOUSE; /* Default-Settings for MOUSE */
- X }
- X else
- X if((argc==2) && (argv[1][0] == '?'))
- X {
- X printf("\n\n STICKMOUSE: switches the Mouse-Pointer-Device\n");
- X printf(" USAGE: STICKMOUSE <port> <device>\n");
- X printf(" <port> = 0/1 for the Joyports\n");
- X printf(" <device> = MOUSE/JOY for the Device\n");
- X printf(" STICKMOUSE without params will set to default\n");
- X printf(" written by Dr. Music 1990\n");
- X exit(10);
- X }
- X else
- X {
- X printf("Useage: StickMouse <port> <dev> or StickMouse ? for help\n");
- X exit(10);
- X }
- X }
- X else
- X {
- X Stick_Port = (short)((char)argv[1][0] - '0');
- X if((Stick_Port < 0) || (Stick_Port > 1))
- X {
- X printf("Port-Number must be 0 or 1\n");
- X exit(10);
- X }
- X for(i=0;i<strlen(argv[2]);i++)
- X argv[2][i] = toupper((char)argv[2][i]);
- X if(!strcmp(argv[2],"JOY"))
- X Stick_Dev = GPCT_RELJOYSTICK;
- X else
- X if(!strcmp(argv[2],"MOUSE"))
- X Stick_Dev = GPCT_MOUSE;
- X else
- X {
- X printf("Device must be either MOUSE or JOY\n");
- X exit(10);
- X }
- X }
- X/* ok, end of parsing: 0 / 1 is port-number, GPCT_MOUSE / RELJOYSTICK is type
- X*/
- X StickMousePort = (struct MsgPort *)CreatePort("StickMouse_is_here",NULL);
- X StickMouseReq = (struct IOStdReq *)CreateStdIO(StickMousePort);
- X OpenDevice("input.device",0,StickMouseReq,0);
- X
- X
- X SetMousePort(StickMouseReq,Stick_Port);
- X SetMouseDev(StickMouseReq,Stick_Dev);
- X
- X CloseDevice(StickMouseReq);
- X DeleteStdIO(StickMouseReq);
- X DeletePort(StickMousePort);
- X
- X }
- X
- X
- END_OF_FILE
- if test 3949 -ne `wc -c <'Stickmouse.c'`; then
- echo shar: \"'Stickmouse.c'\" unpacked with wrong size!
- fi
- # end of 'Stickmouse.c'
- fi
- echo shar: End of archive 1 \(of 1\).
- cp /dev/null ark1isdone
- MISSING=""
- for I in 1 ; do
- if test ! -f ark${I}isdone ; then
- MISSING="${MISSING} ${I}"
- fi
- done
- if test "${MISSING}" = "" ; then
- echo You have the archive.
- rm -f ark[1-9]isdone
- else
- echo You still need to unpack the following archives:
- echo " " ${MISSING}
- fi
- ## End of shell archive.
- exit 0
- --
- Mail submissions (sources or binaries) to <amiga@uunet.uu.net>.
- Mail comments to the moderator at <amiga-request@uunet.uu.net>.
- Post requests for sources, and general discussion to comp.sys.amiga.
-